home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / UTI / I-M / MemPhone.cpt / MemoryPhone / background_2771.txt < prev    next >
Text File  |  1989-07-17  |  27KB  |  1,122 lines
  1. -- background: 2771 from stack: in
  2. -- bmap block id: 2442
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Memdialer
  6. ----- HyperTalk script -----
  7. On Dodial TheNum
  8.   Put msg into MScrap
  9.   Put "Now Dialing "&TheNum&"." into msg
  10.   if field "Option Field" is "Tone Dial With Modem" then
  11.     dial quote&TheNum"e with modem
  12.   else if field "Option Field" is "Tone Dial w\o Modem" then
  13.     dial quote&TheNum"e
  14.   else if field "Option Field" is "Pulse Dial With Modem" then
  15.     dial quote&TheNum"e with modem "ATS0=DP"
  16.   end if
  17.   Put MScrap into msg
  18.   hide msg
  19. end DoDIal
  20.  
  21. function ReturnBetter BadStart
  22. Put line 1 of BadStart into BadName
  23. Put line 2 of BadStart into BadNumber
  24. Ask "Enter New Name" with BadName
  25. if it is not empty then Put it into line 1 of BadStart
  26. Ask "Enter New Number" with BadNumber
  27. if it is not empty then Put it into line 2 of BadStart
  28. return BadStart
  29. end ReturnBetter
  30.  
  31. on AddToRepeat Number
  32.   repeat with l=1 to 10
  33.     Put "Redial"&l into holder
  34.     if number is bkgnd field holder then exit AddToRepeat
  35.   end repeat
  36.   repeat with q=10 down to 2
  37.     put bkgnd field ("Redial"&q-1) into bkgnd field ("Redial"&q)
  38.   end repeat
  39.   Put number into bkgnd field "Redial1"
  40. end AddToRepeat
  41.  
  42. On ItsAField NumberChosen
  43.   Put short name of field id numberchosen into d
  44.   if field id numberchosen is empty then
  45.     if not (d contains "Redial") then
  46.       ask "What is this persons name?"
  47.       if it is empty then exit to hypercard
  48.       Put it into line 1 of HisAnswer
  49.       ask "What is this persons number?"
  50.       if it is empty then exit to hypercard
  51.       Put it into line 2 of HisAnswer
  52.       Put HisAnswer into field id numberchosen
  53.     end if
  54.   else if the shiftkey is down then
  55.     if not(d contains "Redial") then
  56.       Answer "Take which action with this number?" with "Clear" or "Alter" or "Cancel"
  57.       if it is "Alter" then
  58.         Put ReturnBetter(field id numberchosen)  into field id numberchosen
  59.       else if it is "Clear" then
  60.         Put ""  into field id numberchosen
  61.       end if
  62.     end if
  63.   else
  64.     Put line 2 of field id numberchosen into thenumber
  65.     DoDIal TheNumber
  66.     if not (d contains "Redial") then
  67.       AddToRepeat field id NumberChosen
  68.     end if
  69.   end if
  70. end ItsAField
  71.  
  72.  
  73. On NewDirectory BtnId
  74.   ask "Name the new directory."
  75.   if it is "" then exit to hypercard
  76.   Put it into newname
  77.   set lockmessages to true
  78.   Set the name of bkgnd btn id BtnId to newname
  79.   Put short name of this card into WhereWas
  80.   Set Hilite of bkgnd button WhereWas to false
  81.   Set Hilite of bkgnd button newname to true
  82.   Put field "Option Field" into holder
  83.   Type "N" with Commandkey
  84.   set the name of this card to newname
  85.   Put newname into bkgnd field cardname
  86.   Put holder into field "Option Field"
  87.   Put "Commands" into field "Clear Menu"
  88. end NewDirectory
  89.  
  90. On ItsAButton TheId
  91.   Put the short name of bkgnd button id TheId into LL
  92.   lock screen
  93.   if LL is "Unused" then
  94.     NewDirectory(TheId)
  95.   else
  96.     put  LL into wheretogo
  97.     go to card wheretogo
  98.   end if
  99.   unlock screen with dissolve
  100. end ItsAButton
  101.  
  102. on opencard
  103.   Put short name of this card into WhereWas
  104.   Set Hilite of bkgnd button WhereWas to true
  105. end opencard
  106.  
  107. on closecard
  108.   Put short name of this card into WhereWas
  109.   Set Hilite of bkgnd button WhereWas to false
  110. end closecard
  111.  
  112. on mouseup
  113.   global justdoubled
  114.   if Justdoubled is true then
  115.     Put false into JustDoubled
  116.   else
  117.     Put the name of the target into h
  118.     if h contains "bkgnd field" then
  119.       if (h contains "cardname" or h contains "Option Field" or h contains "Clear Menu") then exit mouseup
  120.       ItsAField (id of the target)
  121.     else if h contains "bkgnd button" then
  122.       ItsAButton (id of the target)
  123.     end if
  124.   end if
  125. end mouseup
  126.  
  127. on mousedown
  128.   global justdoubled
  129.   Put the name of the target into SN
  130.   if SN contains "bkgnd field" and the optionkey is down and not (SN contains "CardName") then
  131.     Put the id of the target into SN
  132.     put field id SN into TF
  133.     Put line 2 of TF into field id SN
  134.     wait until the mouse is up
  135.     Put TF into field id SN
  136.     Put true into Justdoubled
  137.   end if
  138. end mousedown
  139.  
  140.  
  141.  
  142. -- part 32 (field)
  143. -- low flags: 01
  144. -- high flags: 0001
  145. -- rect: left=152 top=314 right=331 bottom=377
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 130
  150. -- text size: 12
  151. -- style flags: 256
  152. -- line height: 16
  153. -- part name: Cardname
  154.  
  155.  
  156. -- part 97 (field)
  157. -- low flags: 01
  158. -- high flags: 0002
  159. -- rect: left=68 top=94 right=106 bottom=157
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 0
  163. -- font id: 3
  164. -- text size: 9
  165. -- style flags: 0
  166. -- line height: 12
  167. -- part name: Redial5
  168.  
  169.  
  170. -- part 98 (field)
  171. -- low flags: 01
  172. -- high flags: 0002
  173. -- rect: left=68 top=81 right=93 bottom=157
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 9
  179. -- style flags: 0
  180. -- line height: 12
  181. -- part name: Redial4
  182.  
  183.  
  184. -- part 99 (field)
  185. -- low flags: 01
  186. -- high flags: 0002
  187. -- rect: left=68 top=68 right=80 bottom=157
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 0
  191. -- font id: 3
  192. -- text size: 9
  193. -- style flags: 0
  194. -- line height: 12
  195. -- part name: Redial3
  196.  
  197.  
  198. -- part 100 (field)
  199. -- low flags: 01
  200. -- high flags: 0002
  201. -- rect: left=68 top=55 right=67 bottom=157
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 3
  206. -- text size: 9
  207. -- style flags: 0
  208. -- line height: 12
  209. -- part name: Redial2
  210.  
  211.  
  212. -- part 101 (field)
  213. -- low flags: 01
  214. -- high flags: 0002
  215. -- rect: left=68 top=42 right=54 bottom=157
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 3
  220. -- text size: 9
  221. -- style flags: 0
  222. -- line height: 12
  223. -- part name: Redial1
  224.  
  225.  
  226. -- part 128 (field)
  227. -- low flags: 01
  228. -- high flags: 0004
  229. -- rect: left=287 top=58 right=77 bottom=446
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 0
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: Option Field
  238. ----- HyperTalk script -----
  239. on mousedown
  240.   Put "Tone Dial With Modem,Tone Dial w\o Modem,Pulse Dial With Modem" into itemlist
  241.   Put 1 into firstchoice
  242.   Put me into tosend
  243.   repeat with x=1 to 3
  244.     if tosend is item x of itemlist then
  245.       Put x into firstchoice
  246.       exit repeat
  247.     end if
  248.   end repeat
  249.   Put the rect of me into myrect
  250.   Put item 2 of myrect into MyTop
  251.   Put item 1 of myrect+3 into MyLeft
  252.   Put PopUpList(itemlist,firstchoice,MyLeft,MyTop) into TheChoice
  253.   if TheChoice > 0 then Put Item thechoice of itemlist into me
  254. end mousedown
  255.  
  256.  
  257.  
  258. -- part 129 (field)
  259. -- low flags: 01
  260. -- high flags: 0004
  261. -- rect: left=161 top=58 right=77 bottom=256
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 0
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Clear Menu
  270. ----- HyperTalk script -----
  271. on changename
  272.   Put the short name of this card into OldName
  273.   Ask "Enter the New Name for this directory" with OldName
  274.   If it is not empty then
  275.     Put it into NewName
  276.     Put NewName into field "CardName"
  277.     set name of bkgnd btn oldname to newname
  278.     set the name of this card to NewName
  279.   end if
  280. end changename
  281.  
  282. on Doclear
  283.   lock screen
  284.   repeat with x =1 to number of fields
  285.     if field x is not empty then
  286.       put the short name of field x into g
  287.       if not((g contains "Option") or (g contains "Clear") or (g contains "Cardname")) then
  288.         put "" into field x
  289.       end if
  290.     end if
  291.   end repeat
  292.   unlock screen with dissolve slow
  293. end Doclear
  294.  
  295. On RemoveDir
  296.   set cursor to 4
  297.   Lock Screen
  298.   Put field cardname into holder
  299.   Put the userlevel into SavedLevel
  300.   Set the Userlevel to 5
  301.   DoMenu "Delete Card"
  302.   set the hilite of bkgnd button holder to false
  303.   set the name of bkgnd button holder to "Unused"
  304.   Set the userlevel to Savedlevel
  305.   Put short name of this card into Cardleft
  306.   Set hilite of bkgnd button CardLeft to true
  307.   unlock screen with dissolve slow
  308. end RemoveDir
  309.  
  310. on DoSFHelp
  311.   set cursor to 4
  312.   Put msg into MScrap
  313.   Put "This allows for Memoryphone users to easily upgrade.(click)" into msg
  314.   wait until the mouseclick
  315.   Put "It can only import from previous versions of MemoryPhone.(click)"
  316.   wait until the mouseclick
  317.   Put "Change the name on your old stack to ‚ÄúOld MemPhone‚Äù.(click)"
  318.   wait until the mouseclick
  319.   Put "Then reselect ‚ÄúAuto-Update‚Äù,but do not opt for help.(click)"
  320.   wait until the mouseclick
  321.   Put "Sit back and let Hypercard do the work!!(click)"
  322.   wait until the mouseclick
  323.   Put MScrap into msg
  324.   hide msg
  325. end DoSFHelp
  326.  
  327. on Importer
  328.   Answer "Sure you know how ‚ÄúAuto-Update‚Äù works?" with "No,Help!!" or "Yes"
  329.   if it is "No,Help!!" then
  330.     DoSFHelp
  331.     exit importer
  332.   end if
  333.   Put "CName" into WhyHere
  334.   Push Card
  335.   go to "Old MemPhone"
  336.   if the short name of this stack is "MemoryPhone" then
  337.     Answer "AutoUodate did not work."
  338.     exit importer
  339.   else
  340.     Put the number of cards into CardNum
  341.     Put 0 into z
  342.     repeat with x=1 to CardNum
  343.       Put 0 into F
  344.       go to card x
  345.       Put the number of fields into FieldNum
  346.       Put field "CardName" into line x of TheCdNames
  347.       repeat with y=1 to FieldNum
  348.         if field y is not empty then
  349.           put short name of field y into t
  350.           if not ((t contains "Redial") or (t contains "CardName") or (t contains "Option Field") or (t contains "Clear Menu")) then
  351.             add 1 to z
  352.             add 1 to F
  353.             put line 1 of field y into line z of Names
  354.             put line 2 of field y into line z of Numbers
  355.           end if
  356.         end if
  357.       end repeat
  358.       put F into item x of FldNumList
  359.       put 0 into F
  360.     end repeat
  361.   end if
  362.   pop card
  363.   push card
  364.   Put number of cards into NewCardNum
  365.   if 7-NewCardNum<CardNum then
  366.     Answer "This stack will not hold that stack"
  367.   else
  368.     go to card NewCardNum
  369.     Put 0 into z
  370.     set lockmessages to true
  371.     repeat with x=1 to CardNum
  372.       DoMenu "New Card"
  373.       Put "Commands" into field "Clear Menu"
  374.       Put "Tone Dial w\o Modem" into field "Option Field"
  375.       Put line x of TheCdNames into field "CardName"
  376.       Set name of bkgnd button "Unused" to line x of TheCdNames
  377.       Set name of this card to line x of TheCdNames
  378.       put 0 into tru
  379.       put item x of FldNumList into GH
  380.       Repeat with y=1 to GH
  381.         add 1 to z
  382.         Put false into doone
  383.         repeat while not doone
  384.           add 1 to tru
  385.           put short name of field tru into t
  386.           if not ((t contains "Redial") or (t contains "CardName") or (t contains "Option Field") or (t contains "Clear Menu")) then
  387.             put line z of Names into line 1 of field tru
  388.             put line z of Numbers into line 2 of field tru
  389.             put true into doone
  390.           end if
  391.         end repeat
  392.       end repeat
  393.     end repeat
  394.   end if
  395.   pop card
  396. end importer
  397.  
  398. on mousedown
  399.   Put the rect of me into myrect
  400.   Put item 4 of myrect into MyTop
  401.   Put item 1 of myrect+1 into MyLeft
  402.   Put "Clear Directory‚Ķ,Clear All Directories‚Ķ" into choicer
  403.   Put ",Rename Directory‚Ķ,Remove Directory‚Ķ" after choicer
  404.   Put ",Auto Upgrade‚Ķ" after choicer
  405.   Put PopUpList(choicer,1,MyLeft,MyTop) into TheChoice
  406.   if TheChoice is 0 then exit to hypercard
  407.   if TheChoice is 1 then
  408.     answer "Sure you want to empty this directory?" with "No" or "Yes"
  409.     if it is "Yes" then
  410.       set cursor to 4
  411.       Doclear
  412.     end if
  413.   else if thechoice is 2 then
  414.     answer "Sure you want to empty all directorys?" with "Not Sure" or "Yes,I'm Sure"
  415.     if it is "Yes,I'm Sure" then
  416.       set cursor to 4
  417.       repeat with y=1 to number of cards
  418.         go to card y
  419.         Doclear
  420.       end repeat
  421.     end if
  422.   else if thechoice is 3 then
  423.     ChangeName
  424.   else if thechoice is 4 then
  425.     answer "Sure you want to remove this directory?" with "No, No" or "Yes, I'm Sure"
  426.     if it is "Yes, I'm Sure" then
  427.       RemoveDir
  428.     end if
  429.   else if thechoice is 5 then
  430.     Importer
  431.   end if
  432. end mousedown
  433.  
  434.  
  435. -- part 138 (field)
  436. -- low flags: 01
  437. -- high flags: 0002
  438. -- rect: left=68 top=107 right=119 bottom=157
  439. -- title width / last selected line: 0
  440. -- icon id / first selected line: 0 / 0
  441. -- text alignment: 0
  442. -- font id: 3
  443. -- text size: 9
  444. -- style flags: 0
  445. -- line height: 12
  446. -- part name: Redial6
  447.  
  448.  
  449. -- part 140 (field)
  450. -- low flags: 01
  451. -- high flags: 0002
  452. -- rect: left=68 top=120 right=132 bottom=157
  453. -- title width / last selected line: 0
  454. -- icon id / first selected line: 0 / 0
  455. -- text alignment: 0
  456. -- font id: 3
  457. -- text size: 9
  458. -- style flags: 0
  459. -- line height: 12
  460. -- part name: Redial7
  461.  
  462.  
  463. -- part 158 (field)
  464. -- low flags: 01
  465. -- high flags: 0002
  466. -- rect: left=68 top=133 right=145 bottom=157
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 0
  470. -- font id: 3
  471. -- text size: 9
  472. -- style flags: 0
  473. -- line height: 12
  474. -- part name: Redial8
  475.  
  476.  
  477. -- part 159 (field)
  478. -- low flags: 01
  479. -- high flags: 0002
  480. -- rect: left=68 top=146 right=158 bottom=157
  481. -- title width / last selected line: 0
  482. -- icon id / first selected line: 0 / 0
  483. -- text alignment: 0
  484. -- font id: 3
  485. -- text size: 9
  486. -- style flags: 0
  487. -- line height: 12
  488. -- part name: Redial9
  489.  
  490.  
  491. -- part 161 (field)
  492. -- low flags: 01
  493. -- high flags: 0002
  494. -- rect: left=68 top=159 right=171 bottom=157
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 0 / 0
  497. -- text alignment: 0
  498. -- font id: 3
  499. -- text size: 9
  500. -- style flags: 0
  501. -- line height: 12
  502. -- part name: Redial10
  503.  
  504.  
  505. -- part 173 (field)
  506. -- low flags: 01
  507. -- high flags: 0002
  508. -- rect: left=304 top=79 right=95 bottom=446
  509. -- title width / last selected line: 0
  510. -- icon id / first selected line: 0 / 0
  511. -- text alignment: 1
  512. -- font id: 2
  513. -- text size: 12
  514. -- style flags: 256
  515. -- line height: 16
  516. -- part name: 
  517.  
  518.  
  519. -- part 175 (field)
  520. -- low flags: 01
  521. -- high flags: 0002
  522. -- rect: left=160 top=79 right=95 bottom=302
  523. -- title width / last selected line: 0
  524. -- icon id / first selected line: 0 / 0
  525. -- text alignment: 1
  526. -- font id: 2
  527. -- text size: 12
  528. -- style flags: 256
  529. -- line height: 16
  530. -- part name: 
  531.  
  532.  
  533. -- part 176 (field)
  534. -- low flags: 01
  535. -- high flags: 0002
  536. -- rect: left=160 top=97 right=113 bottom=302
  537. -- title width / last selected line: 0
  538. -- icon id / first selected line: 0 / 0
  539. -- text alignment: 1
  540. -- font id: 2
  541. -- text size: 12
  542. -- style flags: 256
  543. -- line height: 16
  544. -- part name: 
  545.  
  546.  
  547. -- part 177 (field)
  548. -- low flags: 01
  549. -- high flags: 0002
  550. -- rect: left=304 top=97 right=113 bottom=446
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 1
  554. -- font id: 2
  555. -- text size: 12
  556. -- style flags: 256
  557. -- line height: 16
  558. -- part name: 
  559.  
  560.  
  561. -- part 178 (field)
  562. -- low flags: 01
  563. -- high flags: 0002
  564. -- rect: left=160 top=115 right=131 bottom=302
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 0 / 0
  567. -- text alignment: 1
  568. -- font id: 2
  569. -- text size: 12
  570. -- style flags: 256
  571. -- line height: 16
  572. -- part name: 
  573.  
  574.  
  575. -- part 179 (field)
  576. -- low flags: 01
  577. -- high flags: 0002
  578. -- rect: left=304 top=115 right=131 bottom=446
  579. -- title width / last selected line: 0
  580. -- icon id / first selected line: 0 / 0
  581. -- text alignment: 1
  582. -- font id: 2
  583. -- text size: 12
  584. -- style flags: 256
  585. -- line height: 16
  586. -- part name: 
  587.  
  588.  
  589. -- part 180 (field)
  590. -- low flags: 01
  591. -- high flags: 0002
  592. -- rect: left=160 top=133 right=149 bottom=302
  593. -- title width / last selected line: 0
  594. -- icon id / first selected line: 0 / 0
  595. -- text alignment: 1
  596. -- font id: 2
  597. -- text size: 12
  598. -- style flags: 256
  599. -- line height: 16
  600. -- part name: 
  601.  
  602.  
  603. -- part 181 (field)
  604. -- low flags: 01
  605. -- high flags: 0002
  606. -- rect: left=304 top=133 right=149 bottom=446
  607. -- title width / last selected line: 0
  608. -- icon id / first selected line: 0 / 0
  609. -- text alignment: 1
  610. -- font id: 2
  611. -- text size: 12
  612. -- style flags: 256
  613. -- line height: 16
  614. -- part name: 
  615.  
  616.  
  617. -- part 182 (field)
  618. -- low flags: 01
  619. -- high flags: 0002
  620. -- rect: left=160 top=151 right=167 bottom=302
  621. -- title width / last selected line: 0
  622. -- icon id / first selected line: 0 / 0
  623. -- text alignment: 1
  624. -- font id: 2
  625. -- text size: 12
  626. -- style flags: 256
  627. -- line height: 16
  628. -- part name: 
  629.  
  630.  
  631. -- part 183 (field)
  632. -- low flags: 01
  633. -- high flags: 0002
  634. -- rect: left=304 top=151 right=167 bottom=446
  635. -- title width / last selected line: 0
  636. -- icon id / first selected line: 0 / 0
  637. -- text alignment: 1
  638. -- font id: 2
  639. -- text size: 12
  640. -- style flags: 256
  641. -- line height: 16
  642. -- part name: 
  643.  
  644.  
  645. -- part 184 (field)
  646. -- low flags: 01
  647. -- high flags: 0002
  648. -- rect: left=160 top=169 right=185 bottom=302
  649. -- title width / last selected line: 0
  650. -- icon id / first selected line: 0 / 0
  651. -- text alignment: 1
  652. -- font id: 2
  653. -- text size: 12
  654. -- style flags: 256
  655. -- line height: 16
  656. -- part name: 
  657.  
  658.  
  659. -- part 185 (field)
  660. -- low flags: 01
  661. -- high flags: 0002
  662. -- rect: left=304 top=169 right=185 bottom=446
  663. -- title width / last selected line: 0
  664. -- icon id / first selected line: 0 / 0
  665. -- text alignment: 1
  666. -- font id: 2
  667. -- text size: 12
  668. -- style flags: 256
  669. -- line height: 16
  670. -- part name: 
  671.  
  672.  
  673. -- part 186 (field)
  674. -- low flags: 01
  675. -- high flags: 0002
  676. -- rect: left=160 top=187 right=203 bottom=302
  677. -- title width / last selected line: 0
  678. -- icon id / first selected line: 0 / 0
  679. -- text alignment: 1
  680. -- font id: 2
  681. -- text size: 12
  682. -- style flags: 256
  683. -- line height: 16
  684. -- part name: 
  685.  
  686.  
  687. -- part 187 (field)
  688. -- low flags: 01
  689. -- high flags: 0002
  690. -- rect: left=304 top=187 right=203 bottom=446
  691. -- title width / last selected line: 0
  692. -- icon id / first selected line: 0 / 0
  693. -- text alignment: 1
  694. -- font id: 2
  695. -- text size: 12
  696. -- style flags: 256
  697. -- line height: 16
  698. -- part name: 
  699.  
  700.  
  701. -- part 188 (field)
  702. -- low flags: 01
  703. -- high flags: 0002
  704. -- rect: left=160 top=205 right=221 bottom=302
  705. -- title width / last selected line: 0
  706. -- icon id / first selected line: 0 / 0
  707. -- text alignment: 1
  708. -- font id: 2
  709. -- text size: 12
  710. -- style flags: 256
  711. -- line height: 16
  712. -- part name: 
  713.  
  714.  
  715. -- part 189 (field)
  716. -- low flags: 01
  717. -- high flags: 0002
  718. -- rect: left=304 top=205 right=221 bottom=446
  719. -- title width / last selected line: 0
  720. -- icon id / first selected line: 0 / 0
  721. -- text alignment: 1
  722. -- font id: 2
  723. -- text size: 12
  724. -- style flags: 256
  725. -- line height: 16
  726. -- part name: 
  727.  
  728.  
  729. -- part 190 (field)
  730. -- low flags: 01
  731. -- high flags: 0002
  732. -- rect: left=160 top=223 right=239 bottom=302
  733. -- title width / last selected line: 0
  734. -- icon id / first selected line: 0 / 0
  735. -- text alignment: 1
  736. -- font id: 2
  737. -- text size: 12
  738. -- style flags: 256
  739. -- line height: 16
  740. -- part name: 
  741.  
  742.  
  743. -- part 191 (field)
  744. -- low flags: 01
  745. -- high flags: 0002
  746. -- rect: left=304 top=223 right=239 bottom=446
  747. -- title width / last selected line: 0
  748. -- icon id / first selected line: 0 / 0
  749. -- text alignment: 1
  750. -- font id: 2
  751. -- text size: 12
  752. -- style flags: 256
  753. -- line height: 16
  754. -- part name: 
  755.  
  756.  
  757. -- part 192 (field)
  758. -- low flags: 01
  759. -- high flags: 0002
  760. -- rect: left=160 top=241 right=257 bottom=302
  761. -- title width / last selected line: 0
  762. -- icon id / first selected line: 0 / 0
  763. -- text alignment: 1
  764. -- font id: 2
  765. -- text size: 12
  766. -- style flags: 256
  767. -- line height: 16
  768. -- part name: 
  769.  
  770.  
  771. -- part 193 (field)
  772. -- low flags: 01
  773. -- high flags: 0002
  774. -- rect: left=304 top=241 right=257 bottom=446
  775. -- title width / last selected line: 0
  776. -- icon id / first selected line: 0 / 0
  777. -- text alignment: 1
  778. -- font id: 2
  779. -- text size: 12
  780. -- style flags: 256
  781. -- line height: 16
  782. -- part name: 
  783.  
  784.  
  785. -- part 194 (field)
  786. -- low flags: 01
  787. -- high flags: 0002
  788. -- rect: left=160 top=259 right=275 bottom=302
  789. -- title width / last selected line: 0
  790. -- icon id / first selected line: 0 / 0
  791. -- text alignment: 1
  792. -- font id: 2
  793. -- text size: 12
  794. -- style flags: 256
  795. -- line height: 16
  796. -- part name: 
  797.  
  798.  
  799. -- part 195 (field)
  800. -- low flags: 01
  801. -- high flags: 0002
  802. -- rect: left=304 top=259 right=275 bottom=446
  803. -- title width / last selected line: 0
  804. -- icon id / first selected line: 0 / 0
  805. -- text alignment: 1
  806. -- font id: 2
  807. -- text size: 12
  808. -- style flags: 256
  809. -- line height: 16
  810. -- part name: 
  811.  
  812.  
  813. -- part 196 (field)
  814. -- low flags: 01
  815. -- high flags: 0002
  816. -- rect: left=160 top=277 right=293 bottom=302
  817. -- title width / last selected line: 0
  818. -- icon id / first selected line: 0 / 0
  819. -- text alignment: 1
  820. -- font id: 2
  821. -- text size: 12
  822. -- style flags: 256
  823. -- line height: 16
  824. -- part name: 
  825.  
  826.  
  827. -- part 197 (field)
  828. -- low flags: 01
  829. -- high flags: 0002
  830. -- rect: left=304 top=277 right=293 bottom=446
  831. -- title width / last selected line: 0
  832. -- icon id / first selected line: 0 / 0
  833. -- text alignment: 1
  834. -- font id: 2
  835. -- text size: 12
  836. -- style flags: 256
  837. -- line height: 16
  838. -- part name: 
  839.  
  840.  
  841. -- part 198 (field)
  842. -- low flags: 01
  843. -- high flags: 0002
  844. -- rect: left=160 top=294 right=310 bottom=302
  845. -- title width / last selected line: 0
  846. -- icon id / first selected line: 0 / 0
  847. -- text alignment: 1
  848. -- font id: 2
  849. -- text size: 12
  850. -- style flags: 256
  851. -- line height: 16
  852. -- part name: 
  853.  
  854.  
  855. -- part 199 (field)
  856. -- low flags: 01
  857. -- high flags: 0002
  858. -- rect: left=304 top=294 right=310 bottom=446
  859. -- title width / last selected line: 0
  860. -- icon id / first selected line: 0 / 0
  861. -- text alignment: 1
  862. -- font id: 2
  863. -- text size: 12
  864. -- style flags: 256
  865. -- line height: 16
  866. -- part name: 
  867.  
  868.  
  869. -- part 200 (button)
  870. -- low flags: 00
  871. -- high flags: 8002
  872. -- rect: left=457 top=21 right=64 bottom=503
  873. -- title width / last selected line: 0
  874. -- icon id / first selected line: 1017 / 1017
  875. -- text alignment: 1
  876. -- font id: 0
  877. -- text size: 12
  878. -- style flags: 0
  879. -- line height: 16
  880. -- part name: Personal
  881.  
  882.  
  883. -- part 202 (button)
  884. -- low flags: 00
  885. -- high flags: 8002
  886. -- rect: left=457 top=113 right=156 bottom=503
  887. -- title width / last selected line: 0
  888. -- icon id / first selected line: 1017 / 1017
  889. -- text alignment: 1
  890. -- font id: 0
  891. -- text size: 12
  892. -- style flags: 0
  893. -- line height: 16
  894. -- part name: Unused
  895.  
  896.  
  897. -- part 203 (button)
  898. -- low flags: 00
  899. -- high flags: 8002
  900. -- rect: left=457 top=159 right=202 bottom=503
  901. -- title width / last selected line: 0
  902. -- icon id / first selected line: 1017 / 1017
  903. -- text alignment: 1
  904. -- font id: 0
  905. -- text size: 12
  906. -- style flags: 0
  907. -- line height: 16
  908. -- part name: Unused
  909.  
  910.  
  911. -- part 204 (button)
  912. -- low flags: 00
  913. -- high flags: 8002
  914. -- rect: left=457 top=205 right=248 bottom=503
  915. -- title width / last selected line: 0
  916. -- icon id / first selected line: 1017 / 1017
  917. -- text alignment: 1
  918. -- font id: 0
  919. -- text size: 12
  920. -- style flags: 0
  921. -- line height: 16
  922. -- part name: Unused
  923.  
  924.  
  925. -- part 205 (button)
  926. -- low flags: 00
  927. -- high flags: 8002
  928. -- rect: left=457 top=251 right=294 bottom=503
  929. -- title width / last selected line: 0
  930. -- icon id / first selected line: 1017 / 1017
  931. -- text alignment: 1
  932. -- font id: 0
  933. -- text size: 12
  934. -- style flags: 0
  935. -- line height: 16
  936. -- part name: Unused
  937.  
  938.  
  939. -- part 206 (button)
  940. -- low flags: 00
  941. -- high flags: 8002
  942. -- rect: left=457 top=297 right=340 bottom=503
  943. -- title width / last selected line: 0
  944. -- icon id / first selected line: 1017 / 1017
  945. -- text alignment: 1
  946. -- font id: 0
  947. -- text size: 12
  948. -- style flags: 0
  949. -- line height: 16
  950. -- part name: Unused
  951.  
  952.  
  953. -- part 207 (button)
  954. -- low flags: 00
  955. -- high flags: 2000
  956. -- rect: left=68 top=172 right=309 bottom=157
  957. -- title width / last selected line: 0
  958. -- icon id / first selected line: 0 / 0
  959. -- text alignment: 1
  960. -- font id: 0
  961. -- text size: 12
  962. -- style flags: 0
  963. -- line height: 16
  964. -- part name: New Button
  965. ----- HyperTalk script -----
  966. on mouseUp
  967.   ask "What number would you like to dial?"
  968.   if it is "" then exit mouseup
  969.   Put "Now Dialing "&it&"." into msg
  970.   DoDial it
  971.   hide msg
  972. end mouseUp
  973.  
  974.  
  975.  
  976. -- part 208 (button)
  977. -- low flags: 00
  978. -- high flags: A002
  979. -- rect: left=8 top=78 right=128 bottom=60
  980. -- title width / last selected line: 0
  981. -- icon id / first selected line: 21700 / 21700
  982. -- text alignment: 1
  983. -- font id: 0
  984. -- text size: 12
  985. -- style flags: 0
  986. -- line height: 16
  987. -- part name: Home
  988. ----- HyperTalk script -----
  989. on mouseUp
  990.   visual effect dissolve slowly to black
  991.   visual effect dissolve
  992.   go to home
  993. end mouseUp
  994.  
  995.  
  996.  
  997. -- part 209 (button)
  998. -- low flags: 00
  999. -- high flags: A002
  1000. -- rect: left=8 top=186 right=236 bottom=60
  1001. -- title width / last selected line: 0
  1002. -- icon id / first selected line: 3430 / 3430
  1003. -- text alignment: 1
  1004. -- font id: 0
  1005. -- text size: 12
  1006. -- style flags: 0
  1007. -- line height: 16
  1008. -- part name: Rolodex
  1009. ----- HyperTalk script -----
  1010. on mouseUp
  1011.   visual effect zoom open
  1012.   go to stack "Address"
  1013. end mouseUp
  1014.  
  1015.  
  1016.  
  1017. -- part 210 (button)
  1018. -- low flags: 00
  1019. -- high flags: A002
  1020. -- rect: left=8 top=132 right=182 bottom=60
  1021. -- title width / last selected line: 0
  1022. -- icon id / first selected line: 7232 / 7232
  1023. -- text alignment: 1
  1024. -- font id: 0
  1025. -- text size: 12
  1026. -- style flags: 0
  1027. -- line height: 16
  1028. -- part name: MemPhone
  1029. ----- HyperTalk script -----
  1030. on mouseUp
  1031.   if the short name of this stack is not "MemoryPhone" then
  1032.     go to "MemoryPhone"
  1033.   else
  1034.     Answer "This button will install itself, shall we‚Ķ" with "Cancel" or "Continue"
  1035.     if it is "Continue" then
  1036.       set cursor to 4
  1037.       lock screen
  1038.       put the userlevel into OldLevel
  1039.       set the userlevel to 5
  1040.       choose button tool
  1041.       click at the loc of me
  1042.       domenu "Copy Button"
  1043.       choose browse tool
  1044.       set the userlevel to OldLevel
  1045.       Unlock Screen
  1046.       Answer "Go to destination card and paste."
  1047.     end if
  1048.   end if
  1049. end mouseUp
  1050.  
  1051. on NewButton
  1052.   Answer "Position this button with the mouse and click."
  1053.   set the cursor to 4
  1054.   repeat until the mouseclick
  1055.     if the Loc of me<>the mouseloc then
  1056.       set the loc of me to the Mouseloc
  1057.     end if
  1058.   end repeat
  1059.   choose browse tool
  1060. end NewButton
  1061.  
  1062.  
  1063. -- part 211 (button)
  1064. -- low flags: 00
  1065. -- high flags: 2000
  1066. -- rect: left=68 top=26 right=41 bottom=157
  1067. -- title width / last selected line: 0
  1068. -- icon id / first selected line: 0 / 0
  1069. -- text alignment: 1
  1070. -- font id: 0
  1071. -- text size: 12
  1072. -- style flags: 0
  1073. -- line height: 16
  1074. -- part name: Redial Buffer
  1075. ----- HyperTalk script -----
  1076. on mouseUp
  1077.   if the shiftkey is down then
  1078.     Answer "Do you wish to clear the redial buffer?" with "Cancel" or "OK"
  1079.     if it is "OK" then
  1080.       lock screen
  1081.       repeat with x=1 to 10
  1082.         Put "" into bkgnd field ("Redial"&x)
  1083.       end repeat
  1084.       unlock screen with dissolve slow
  1085.     end if
  1086.   end if
  1087. end mouseUp
  1088.  
  1089.  
  1090.  
  1091. -- part 212 (button)
  1092. -- low flags: 00
  1093. -- high flags: A002
  1094. -- rect: left=8 top=24 right=74 bottom=60
  1095. -- title width / last selected line: 0
  1096. -- icon id / first selected line: 19678 / 19678
  1097. -- text alignment: 1
  1098. -- font id: 0
  1099. -- text size: 12
  1100. -- style flags: 0
  1101. -- line height: 16
  1102. -- part name: About…
  1103. ----- HyperTalk script -----
  1104. on mouseUp
  1105.   bringpict "About MemPhone","Version 2.60"
  1106. end mouseUp
  1107.  
  1108.  
  1109.  
  1110. -- part 213 (button)
  1111. -- low flags: 00
  1112. -- high flags: 8002
  1113. -- rect: left=457 top=66 right=109 bottom=503
  1114. -- title width / last selected line: 0
  1115. -- icon id / first selected line: 1017 / 1017
  1116. -- text alignment: 1
  1117. -- font id: 0
  1118. -- text size: 12
  1119. -- style flags: 0
  1120. -- line height: 16
  1121. -- part name: Unused
  1122.